From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 16 Jun 1996 23:09:17 +0000 (+0000)
Subject: (Fcall_process): Handle t or nil as STDERR_FILE.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~83631
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=45be8a1e5840794452706606ee5db9a657c7c84a;p=emacs.git

(Fcall_process): Handle t or nil as STDERR_FILE.
---

diff --git a/src/callproc.c b/src/callproc.c
index 4d84c98edb7..3e79b6064f5 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -245,8 +245,16 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
       if (CONSP (buffer))
 	{
 	  if (CONSP (XCONS (buffer)->cdr))
-	    error_file = Fexpand_file_name (XCONS (XCONS (buffer)->cdr)->car,
-					    Qnil);
+	    {
+	      Lisp_Object file_for_stderr;
+	      stderr_file = XCONS (XCONS (buffer)->cdr)->car;
+
+	      if (NILP (stderr_file) || EQ (Qt, stderr_file))
+		error_file = stderr_file;
+	      else
+		error_file = Fexpand_file_name (stderr_file, Qnil);
+	    }
+
 	  buffer = XCONS (buffer)->car;
 	}